home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / M / MiniBBS 1.1.cpt / MiniBBS 1.1 / MiniBBS Sends File.TXT < prev    next >
Text File  |  1988-07-28  |  2KB  |  51 lines
  1.  Settings File = Your Settings File
  2.  Script Name = MiniBBS Sends File
  3.  Command Key = 
  4.  F-key = 
  5.  Menu = NO
  6.  Button = NO
  7.  
  8. 1   If Expression  "= NumberToSend = 0"
  9. 2     Send Text String  "MiniBBS has not designated any files for sending today. ^M^M"
  10. 3   Else
  11. 4     Send Text String  "= 'Number of Files to Send: ',NumberToSend,'.^M'"
  12. 5     Set Variable NowSendingNum from Expression  "= 0"
  13. 6     Send Text String  "Files will be sent using the XModem Protocol. ^M"
  14. 7     Send Text String  "Would you like the file to be sent using MacBinary XModem? ^M"
  15. 8     Send Text String  "(Just type Y or N, and press <RETURN>.^M"
  16. 9     Send Text String  " Press <RETURN> alone to exit without receiving files.)^M"
  17. 10    Wait for Line Not Containing  "without receiving"
  18. 11    If Line Contains  "Y"
  19. 12      Set Variable UseMacBinary from Expression  "= TRUE"
  20. 13      Send Text String  "OK- files will be sent using MacBinary XModem.^M"
  21. 14    Else If Line Contains  "N"
  22. 15      Set Variable UseMacBinary from Expression  "= FALSE"
  23. 16      Send Text String  "OK- files will be sent using standard XModem.^M"
  24. 17    Else
  25. 18      Return Null 
  26. 19    End If
  27. 20    Repeat
  28. 21      Set Variable NowSendingNum from Expression  "= NowSendingNum+1"
  29. 22      Set Variable NowSendingName from Expression  "= 'File_',NowSendingNum)"
  30. 23      Send Text String  "= 'About To Send ',NowSendingName,'^M'"
  31. 24      If Expression  "= UseMacBinary = TRUE"
  32. 25        Send Text String  "Press <RETURN> when you are ready to receive file using^M"
  33. 26        Send Text String  "XModem MacBinary Protocol.^M"
  34. 27      Else
  35. 28        Send Text String  "Press <RETURN> when you are ready to receive file using^M"
  36. 29        Send Text String  "XModem Protocol.^M"
  37. 30      End If
  38. 31      Wait for Line Not Containing  "Protocol"
  39. 32      If Expression  "= UseMacBinary = TRUE"
  40. 33        Send File * XMODEM MacBinary  "= NowSendingName"
  41. 34      Else
  42. 35        Send File * XMODEM Plain  "= NowSendingName"
  43. 36      End If
  44. 37      If Failure 
  45. 38        Send Text String  "File Transfer Incomplete!"
  46. 39        Return Failure 
  47. 40      End If
  48. 41      Send Text String  "File transfer appears successful from this end.^M^M"
  49. 42    Until Expression  "= NowSendingNum = NumberToSend"
  50. 43  End If
  51.